home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FGL402F.ZIP / EXFOR.ARJ / TEMP / 08-16.FOR < prev    next >
Text File  |  1995-01-20  |  1KB  |  60 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER WIDTH, HEIGHT
  6.       PARAMETER (WIDTH = 1000, HEIGHT = 50)
  7.  
  8.       INTEGER HANDLE, OLD_MODE, STATUS, X
  9.       INTEGER FG_GETMODE, FG_VBALLOC, FG_VBOPEN
  10.  
  11. C  Initialize the video environment
  12.  
  13.       CALL FG_INITPM
  14.       OLD_MODE = FG_GETMODE()
  15.       CALL FG_SETMODE(20)
  16.       CALL FG_VBINIT
  17.  
  18. C  Fill the screen with light blue pixels
  19.  
  20.       CALL FG_SETCOLOR(9)
  21.       CALL FG_FILLPAGE
  22.  
  23.       HANDLE = FG_VBALLOC(WIDTH,HEIGHT)
  24.       IF (HANDLE .LT. 0) THEN
  25.         CALL FG_SETMODE(OLD_MODE)
  26.         CALL FG_RESET
  27.         STOP 'Could not create the virtual buffer.'
  28.       END IF
  29.       STATUS = FG_VBOPEN(HANDLE)
  30.  
  31. C  Fill the virtual buffer with a series of narrow rectangles
  32.  
  33.       DO 10 X = 0,WIDTH-1
  34.          CALL FG_SETCOLOR(X)
  35.          CALL FG_RECT(X,X,0,HEIGHT-1)
  36. 10    CONTINUE
  37.  
  38. C  Scroll the virtual buffer through a 100x50 window on the
  39. C  visual page, such that the top half scrolls left and the
  40. C  bottom half scrolls right
  41.  
  42.       DO 20 X = 0,WIDTH-100
  43.          CALL FG_VBPASTE(X,X+99,0,24,110,99)
  44.          CALL FG_VBPASTE(WIDTH-100-X,WIDTH-1-X,25,49,110,124)
  45. 20    CONTINUE
  46.       CALL FG_WAITKEY
  47.  
  48. C  Close the virtual buffer
  49.  
  50.       CALL FG_VBCLOSE
  51.       CALL FG_VBFREE(HANDLE)
  52.  
  53. C  Restore original video mode and exit
  54.  
  55.       CALL FG_SETMODE(OLD_MODE)
  56.       CALL FG_RESET
  57.  
  58.       STOP ' '
  59.       END
  60.